unit ProdutorRecordFr;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, Buttons, DbCtrls, StdCtrls, ActnList, MainRecordFr;

type

  { TProdutorRecordFrame }

  TProdutorRecordFrame = class(TMainRecordFrame)
    ButtonBuscarMunicipio: TBitBtn;
    DBEditBairro: TDBEdit;
    DBEditCep: TDBEdit;
    DBEditCodigoProdutor: TDBEdit;
    DBEditEmailProdutor: TDBEdit;
    DBEditIdMunicipio: TDBEdit;
    DBEditLogradouro: TDBEdit;
    DBEditNomeMunicipio: TDBEdit;
    DBEditNomeProdutor: TDBEdit;
    DBEditTelefoneProdutor: TDBEdit;
    DBEditUF: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    procedure ButtonBuscarMunicipioClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

implementation

uses Initializator, MainFr, ProdutorDM;

{ TProdutorRecordFrame }

procedure TProdutorRecordFrame.ButtonBuscarMunicipioClick(Sender: TObject);
begin
  TheControl.ShowForeignFrame(TMainFrame(MunicipioSearchFrame));
end;

initialization
  {$I produtorrecordfr.lrs}

end.

